//S153SC12    JOB (XXXXXX,R772SC),'10MIS-(GREGH)',
//            CLASS=T,MSGCLASS=T,NOTIFY=AGAHSC,
//            COND=(4,LT),MSGLEVEL=1
//*LOGONID AGAHSC
/*JOBPARM     L=999,T=5,LINECT=60
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  J153SC12 CREATE THE CLD EXTRACT FILES             +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//STEP010     EXEC PGM=IDCAMS
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP010 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: STEP010                               +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP010 - DELETE EXISTING FILE                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSPRINT    DD SYSOUT=*
//SYSIN       DD *
  DELETE 'J153SC.SPAM.CLD.DATA'
  DELETE 'J153SC.SPAM.CLDPF.DATA'
  DELETE 'J153SC.SPAM.CLDDIR.DATA'
  DELETE 'J153SC.SPAM.CLD2.DATA'
  DELETE 'J153SC.SPAM.CLDPF2.DATA'
  DELETE 'J153SC.SPAM.CLDDIR2.DATA'
  DELETE 'J153SC.SPAM.CLD.SG.DATA'
  DELETE 'J153SC.SPAM.CLDPF.SG.DATA'
  DELETE 'J153SC.SPAM.CLDPKG.SG.DATA'
  DELETE 'J153SC.SPAM.CLDNSID.SG.DATA'
  DELETE 'J153SC.SPAM.CLD.SORTED.DATA'
  SET MAXCC = 0
//**
//STEP020     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP020 - CREATE THE CLD (CB-PLANT) EXTRACT FILE  +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP020 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP020                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J119CB.CLD.FIXVAR.MAST740(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLD.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:11,4,
                  7:1,2,
                  9:C'1',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:C'0',
                 24:8,2,
                 26:C'               ',
                 41:C'  ',
                 43:C'  ',
                 45:C'  ',
                 47:C'  ',
                 49:C'    ',
                 53:C'19',
                 55:11,4,
                 59:C'      ',
                 65:C'                    ',
                 85:23,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:27,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:15,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:19,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:31,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:91,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                145:147,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:79,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:43,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:47,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:35,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:39,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:51,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:96,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                225:152,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:82,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:55,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:59,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:63,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:85,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:123,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:C' 000000.00',
                305:115,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:119,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:127,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:157,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                345:101,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:67,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:71,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:75,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:88,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:139,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:C' 000000.00',
                415:131,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:135,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:143,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:162,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                455:106,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//**
//STEP025     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP025 - CREATE THE CLD (EM,EP-PLANT) EXTRACT    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP020 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP025                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J119EM.CLD.FIXVAR.MAST740(+0),
//            DISP=SHR
//            DD DSN=J119EP.CLD.FIXVAR.MAST740(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLD2.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:11,4,
                  7:1,2,
                  9:C'1',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:8,3,
                 26:C'               ',
                 41:C'  ',
                 43:C'  ',
                 45:C'  ',
                 47:C'  ',
                 49:C'    ',
                 53:C'19',
                 55:11,4,
                 59:C'      ',
                 65:C'                    ',
                 85:23,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:27,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:15,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:19,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:31,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:91,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                145:147,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:79,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:43,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:47,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:35,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:39,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:51,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:96,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                225:152,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:82,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:55,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:59,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:63,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:85,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:123,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:C' 000000.00',
                305:115,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:119,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:127,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:157,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                345:101,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:67,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:71,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:75,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:88,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:139,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:C' 000000.00',
                415:131,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:135,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:143,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:162,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                455:106,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//**
//STEP030     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP030 - CREATE THE CLD (CB-FAM) EXTRACT FILE    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP030 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP030                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J119CB.CLDPF.FIXVAR.MAST740(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLDPF.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:19,4,
                  7:1,2,
                  9:C'3',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:C'0',
                 24:8,2,
                 26:C'               ',
                 41:11,2,
                 43:13,2,
                 45:15,2,
                 47:17,2,
                 49:C'    ',
                 53:C'19',
                 55:19,4,
                 59:C'      ',
                 65:C'                    ',
                 85:31,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:35,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:23,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:27,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:39,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:99,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                145:155,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:87,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:51,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:55,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:43,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:47,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:59,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:104,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                225:160,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:90,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:63,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:67,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:71,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:93,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:131,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:C' 000000.00',
                305:123,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:127,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:135,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:165,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                345:109,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:75,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:79,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:83,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:96,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:147,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:C' 000000.00',
                415:139,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:143,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:151,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:170,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                455:114,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//**
//STEP035     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP035 - CREATE THE CLD (EM,EP-FAM) EXTRACT FILE +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP035 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP035                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J119EM.CLDPF.FIXVAR.MAST740(+0),
//            DISP=SHR
//            DD DSN=J119EP.CLDPF.FIXVAR.MAST740(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLDPF2.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:19,4,
                  7:1,2,
                  9:C'3',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:8,3,
                 26:C'               ',
                 41:11,2,
                 43:13,2,
                 45:15,2,
                 47:17,2,
                 49:C'    ',
                 53:C'19',
                 55:19,4,
                 59:C'      ',
                 65:C'                    ',
                 85:31,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:35,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:23,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:27,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:39,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:99,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                145:155,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:87,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:51,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:55,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:43,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:47,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:59,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:104,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                225:160,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:90,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:63,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:67,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:71,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:93,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:131,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:C' 000000.00',
                305:123,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:127,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:135,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:165,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                345:109,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:75,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:79,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:83,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:96,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:147,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:C' 000000.00',
                415:139,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:143,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:151,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:170,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                455:114,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//STEP040     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP040 - CREATE THE CLD (CB-DIR) EXTRACT FILE    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP040 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP040                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J119CB.CLDDIR.FIXVAR.MAST740(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLDDIR.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:19,4,
                  7:1,2,
                  9:C'2',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:C'0',
                 24:8,2,
                 26:C'               ',
                 41:11,2,
                 43:C'  ',
                 45:C'  ',
                 47:17,2,
                 49:13,4,
                 53:C'19',
                 55:19,4,
                 59:C'      ',
                 65:C'                    ',
                 85:31,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:35,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:23,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:27,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:39,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:99,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                145:155,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:87,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:51,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:55,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:43,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:47,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:59,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:104,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                225:160,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:90,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:63,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:67,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:71,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:93,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:131,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:C' 000000.00',
                305:123,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:127,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:135,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:165,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                345:109,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:75,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:79,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:83,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:96,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:147,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:C' 000000.00',
                415:139,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:143,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:151,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:170,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                455:114,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//STEP045     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP045 - CREATE THE CLD (EM,EP-DIR) EXTRACT FILE +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP045 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP045                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J119EM.CLDDIR.FIXVAR.MAST740(+0),
//            DISP=SHR
//            DD DSN=J119EP.CLDDIR.FIXVAR.MAST740(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLDDIR2.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:19,4,
                  7:1,2,
                  9:C'2',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:8,3,
                 26:C'               ',
                 41:11,2,
                 43:C'  ',
                 45:C'  ',
                 47:17,2,
                 49:13,4,
                 53:C'19',
                 55:19,4,
                 59:C'      ',
                 65:C'                    ',
                 85:31,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:35,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:23,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:27,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:39,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:99,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                145:155,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:87,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:51,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:55,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:43,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:47,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:59,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:104,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                225:160,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:90,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:63,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:67,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:71,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:93,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:131,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:C' 000000.00',
                305:123,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:127,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:135,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:165,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                345:109,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:75,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:79,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:83,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:96,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:147,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:C' 000000.00',
                415:139,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:143,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:151,4,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:170,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                455:114,5,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//**
//STEP050     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP050 - CREATE THE CLD (SG-NSID)  EXTRACT FILE  +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP050 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP050                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J158SG.CLD.MAST050D(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLDNSID.SG.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:C'9999',
                  7:1,2,
                  9:C'4',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:8,3,
                 26:11,15,
                 41:30,2,
                 43:32,2,
                 45:26,2,
                 47:28,2,
                 49:26,4,
                 53:C'19',
                 55:C'9999',
                 59:38,6,
                 65:44,20,
                 85:64,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:70,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:76,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:82,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:88,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:C' 000000000',
                145:94,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:101,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:C' 000000.00',
                175:C' 000000.00',
                185:C' 000000.00',
                195:C' 000000.00',
                205:C' 000000.00',
                215:C' 000000000',
                225:C' 000000000',
                235:C' 000000.00',
                245:104,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:110,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:116,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:122,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:125,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:131,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                305:137,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:143,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:149,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:C' 000000000',
                345:155,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:162,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:168,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:174,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:180,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:183,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:189,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                415:195,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:201,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:207,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:C' 000000000',
                455:213,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//**
//STEP060     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP060 - CREATE THE CLD (SG-FAM) EXTRACT FILE    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP060 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP060                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J158SG.CLDPF.MAST048(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLDPF.SG.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:19,4,
                  7:1,2,
                  9:C'3',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:8,3,
                 26:C'               ',
                 41:11,2,
                 43:13,2,
                 45:15,2,
                 47:17,2,
                 49:15,4,
                 53:C'19',
                 55:19,4,
                 59:C'      ',
                 65:C'                    ',
                 85:23,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:29,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:35,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:41,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:47,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:C' 000000000',
                145:53,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:60,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:63,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:69,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:75,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:81,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:87,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:C' 000000000',
                225:93,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:100,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:103,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:109,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:115,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:121,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:124,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:130,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                305:136,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:142,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:148,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:C' 000000000',
                345:154,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:161,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:167,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:173,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:179,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:182,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:188,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                415:194,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:200,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:206,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:C' 000000000',
                455:212,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//STEP070     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP070 - CREATE THE CLD (SG-PLANT) EXTRACT FILE  +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP070 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP070                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J158SG.CLDPKG.MAST048(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLDPKG.SG.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:19,4,
                  7:1,2,
                  9:C'1',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:8,3,
                 26:C'               ',
                 41:11,2,
                 43:13,2,
                 45:15,2,
                 47:17,2,
                 49:15,4,
                 53:C'19',
                 55:19,4,
                 59:C'      ',
                 65:C'                    ',
                 85:23,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:29,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:35,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:41,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:47,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:C' 000000000',
                145:53,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:60,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:63,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                175:69,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                185:75,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                195:81,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                205:87,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                215:C' 000000000',
                225:93,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                235:100,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                245:103,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:109,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:115,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:121,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:124,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:130,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                305:136,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:142,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:148,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:C' 000000000',
                345:154,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:161,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:167,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:173,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:179,3,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:182,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:188,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                415:194,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:200,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:206,6,PD,EDIT=(STTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:C' 000000000',
                455:212,7,PD,EDIT=(STTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//**
//STEP080     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  STEP080 - CREATE THE CLD (SG-DIR) EXTRACT FILE    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  STEP080 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT STEP080                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J158SG.CLD.MAST052D(+0),
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLD.SG.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=COPY
   OUTREC FIELDS=(1:C'19',
                  3:C'9999',
                  7:1,2,
                  9:C'2',
                 10:3,8,
                 18:3,1,
                 19:4,4,
                 23:8,3,
                 26:11,15,
                 41:30,2,
                 43:32,2,
                 45:26,2,
                 47:28,2,
                 49:11,4,
                 53:C'19',
                 55:C'9999',
                 59:38,6,
                 65:44,20,
                 85:64,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                 95:70,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                105:76,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                115:82,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                125:88,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                135:C' 000000000',
                145:94,7,PD,EDIT=(STTTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                155:101,3,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                165:C' 000000.00',
                175:C' 000000.00',
                185:C' 000000.00',
                195:C' 000000.00',
                205:C' 000000.00',
                215:C' 000000000',
                225:C' 000000000',
                235:C' 000000.00',
                245:104,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                255:110,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                265:116,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                275:122,3,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                285:125,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                295:131,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                305:137,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                315:143,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                325:149,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                335:C' 000000000',
                345:155,7,PD,EDIT=(STTTTTTTTTT),LENGTH=10,SIGNS=(,-,,),
                355:162,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                365:168,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                375:174,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                385:180,3,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                395:183,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                405:189,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                415:195,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                425:201,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                435:207,6,PD,EDIT=(STTTTTTT.TT),LENGTH=10,SIGNS=(,-,,),
                445:C' 000000000',
                455:213,7,PD,EDIT=(STTTTTTTTTT),LENGTH=10,SIGNS=(,-,,))
/*
//LAST080     EXEC NSCSORT
//**
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +  LAST080 - CREATE THE COMBINED CLD EXTRACT FILE    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//*   +                                                    +
//*   +  LAST080 ABEND INSTRUCTIONS                        +
//*   +  UNCATLG DSNS: NONE                                +
//*   +  GDG CHANGES: NONE                                 +
//*   +  RESTORE: NONE                                     +
//*   +  REFERBACKS: NONE                                  +
//*   +  RESTART AT: RESTART AT LAST080                    +
//*   +                                                    +
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++
//**
//SYSOUT      DD SYSOUT=*
//SORTIN      DD DSN=J153SC.SPAM.CLD.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLDPF.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLDDIR.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLD2.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLDPF2.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLDDIR2.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLD.SG.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLDPF.SG.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLDPKG.SG.DATA,
//            DISP=SHR
//            DD DSN=J153SC.SPAM.CLDNSID.SG.DATA,
//            DISP=SHR
//SORTOUT     DD DSN=J153SC.SPAM.CLD.SORTED.DATA,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=DISK,
//            DCB=(RECFM=FB,LRECL=464,BLKSIZE=0),
//            SPACE=(CYL,(50,10),RLSE)
//SYSIN       DD *
   SORT  FIELDS=(1,464,CH,A)
/*
//
//**************************   END OF JOB   **************************
